procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Screen Width = ' + inttostr(Screen.Width) + #13#10 + 'Screen Height = ' + inttostr(Screen.Height));
end;